home *** CD-ROM | disk | FTP | other *** search
/ Item MB Quick & Easy 2.0 / Item MB Quick & Easy 2.0.iso / mbfacad / mb02644.lsp < prev    next >
Text File  |  1998-03-15  |  2KB  |  71 lines
  1. ;=============026.44 HANDGRIFF leicht
  2.  
  3. (EAITDBL "0002644")
  4. (EAITmsg "mb_mld10" "\n" "002" nil) (princ "........") (princ EAITnrx) (princ "\n")
  5. (princ)
  6.  
  7.  
  8. (defun C:02644D1 (/ P1 P0 R Wi)
  9.    (EAITDBL "0002644")
  10.    (princ (strcat "\n\n" EAITbez1))
  11.    (EAITvari)
  12.    (EAITvars)
  13.    (setvar "ORTHOMODE" 0)
  14.    (EAITbpt EAITofmit 2 nil)
  15.    (setq P1 (getpoint))
  16.    (if (= P1 nil)(setq P1 (EAITrpt)))
  17.    (EAITmsg "mb_mld10" "\n" "024" nil)(EAITmsg "mb_mld10" " " "028" " ") ;Versatz: <50>
  18.    (setq R (getreal))
  19.    (if (= R nil)(setq R 50))
  20.    (setvar "ORTHOMODE" 1)
  21.    (setvar "OSMODE" 0)
  22.    (initget 1)
  23.    (EAITmsg "mb_mld10" nil "008" nil)           ;Konstruktionsrichtung
  24.    (setq Wi (getangle P1))
  25.    (setq P0 (polar P1 Wi R))
  26.    (setvar "OSMODE" 0)
  27.    (setvar "ORTHOMODE" 0)
  28.    (command EAITege (strcat EAITpfn "02644d1") P0 "" "" (EAITbig Wi))
  29.  
  30.    (command EAITege (strcat EAITpfn "EAITinfo")  P0 "" "" (EAITbig (EAITbw))
  31.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  32.    )
  33.  
  34.    (EAITvarz2)
  35.    (princ)
  36. )
  37.  
  38.  
  39.  
  40. (defun C:02644S1 (/ P1 P0 R Wi)
  41.    (EAITDBL "0002644")
  42.    (princ (strcat "\n\n" EAITbez1))
  43.    (EAITvari)
  44.    (EAITvars)
  45.    (setvar "ORTHOMODE" 0)
  46.    (EAITbpt EAITofmit 2 nil)
  47.    (setq P1 (getpoint))
  48.    (if (= P1 nil)(setq P1 (EAITrpt)))
  49.    (EAITmsg "mb_mld10" "\n" "024" nil)(EAITmsg "mb_mld10" " " "028" " ") ;Versatz: <50>
  50.    (setq R (getreal))
  51.    (if (= R nil)(setq R 50))
  52.    (setvar "ORTHOMODE" 1)
  53.    (setvar "OSMODE" 0)
  54.    (initget 1)
  55.    (EAITmsg "mb_mld10" nil "008" nil)           ;Konstruktionsrichtung
  56.    (setq Wi (getangle P1))
  57.    (setq P0 (polar P1 Wi R))
  58.    (setvar "OSMODE" 0)
  59.    (setvar "ORTHOMODE" 1)
  60.    (EAITmsg "mb_mld10" "\n" "003" nil)            ;Drehwinkel
  61.    (command EAITege (strcat EAITpfn "02644s1") P0 "" "" EAITofkei pause)
  62.  
  63.    (command EAITege (strcat EAITpfn "EAITinfo") (polar P0 (+ (EAITbw)(EAITgib 90)) 20) "" "" (EAITbig (EAITbw))
  64.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  65.    )
  66.  
  67.    (EAITvarz2)
  68.    (princ)
  69. )
  70. (princ)
  71.